BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 0
ScaleHeight = 1155
ScaleWidth = 8400
TabIndex = 0
Top = 0
Width = 8460
Begin VB.TextBox Text1
Height = 1035
Left = 90
MultiLine = -1 'True
TabIndex = 1
Top = 60
Width = 6705
End
End
Begin VB.Menu FileMenu
Caption = "&File"
Begin VB.Menu PrintformMenu
Caption = "&Print form"
End
Begin VB.Menu Exitmenu
Caption = "&Exit"
End
End
Begin VB.Menu EditMenu
Caption = "&Edit"
Begin VB.Menu CopyMenu
Caption = "&Copy to clipboard"
End
Begin VB.Menu DeleteMenu
Caption = "&Delete selected items"
End
Begin VB.Menu SEPARATOR1
Caption = "-"
End
Begin VB.Menu SelectAllMenu
Caption = "Select &all"
End
Begin VB.Menu SEPARATOR3
Caption = "-"
End
Begin VB.Menu SelectModeMenu
Caption = "Select &Mode"
End
Begin VB.Menu SEPARATOR5
Caption = "-"
End
Begin VB.Menu ZOrderMenu
Caption = "&ZOrder"
Begin VB.Menu BackMenu
Caption = "&Back"
End
Begin VB.Menu ForeMenu
Caption = "&Fore"
End
End
End
Begin VB.Menu ShowMenu
Caption = "&Show"
Begin VB.Menu ShowExample
Caption = "&WorkFlow"
Index = 0
End
Begin VB.Menu ShowExample
Caption = "&NetWork"
Index = 1
End
Begin VB.Menu ShowExample
Caption = "&Diagram"
Index = 2
End
Begin VB.Menu ShowExample
Caption = "&FlowChart"
Index = 3
End
Begin VB.Menu SEPARATOR
Caption = "-"
End
Begin VB.Menu CommentsMenu
Caption = "&Comments"
End
End
Begin VB.Menu ZoomMenu
Caption = "&Zoom"
Begin VB.Menu ZoomValueMenu
Caption = "&100% (Normal)"
Index = 0
End
Begin VB.Menu ZoomValueMenu
Caption = "&200%"
Index = 1
End
Begin VB.Menu ZoomValueMenu
Caption = "&50%"
Index = 2
End
Begin VB.Menu ZoomValueMenu
Caption = "0% (Fit in Window)"
Index = 3
End
End
Begin VB.Menu CapabilitiesMenu
Caption = "&Capabilities"
Begin VB.Menu MultiSelectionMenu
Caption = "Multi &Selection"
End
Begin VB.Menu ReadOnlyMenu
Caption = "&Read Only"
End
Begin VB.Menu CanSizeNodeMenu
Caption = "Can Si&ze node"
End
Begin VB.Menu CanMoveNodemenu
Caption = "Can &Move node"
End
Begin VB.Menu CanStretchLinkMenu
Caption = "Can S&tretch link"
End
Begin VB.Menu CanMultiLinkMenu
Caption = "Can M&ulti link"
End
Begin VB.Menu CanDrawNodeMenu
Caption = "Can Draw &Node"
End
Begin VB.Menu CanDrawLinkMenu
Caption = "Can Draw &Link"
End
Begin VB.Menu AutoScrollMenu
Caption = "&AutoScroll"
End
Begin VB.Menu DisplayHandlesMenu
Caption = "&Display Handles"
End
End
Begin VB.Menu WindowMenu
Caption = "&Window"
WindowList = -1 'True
Begin VB.Menu CascadeMenu
Caption = "&Cascade"
End
Begin VB.Menu TileMenu
Caption = "&Tile"
End
Begin VB.Menu ReorganizeMenu
Caption = "&Reorganize"
End
End
Begin VB.Menu InfoMenu
Caption = "&Info"
Begin VB.Menu AboutMenu
Caption = "&About..."
End
End
Attribute VB_Name = "frmMain"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Const CASCADE = 0
Const MOZAIQUE_HORIZONTALE = 1
Const MOZAIQUE_VERTICALE = 2
Const REORGANISER_ICONES = 3
Const INFO11 = " In this example, the purpose is to associate actors (Transparent blue nodes) to task items (yellow nodes). "
Const INFO12 = " You can't change the process diagram. You can only move and resize nodes or stretch links. This limitation is added here in order to demonstrate how easy it is to customize your application."
Const INFO13 = " Therefore, you may create new actor node or change actor names by double-clicking over actor node and you may also create links between actor nodes and task nodes (Ex.: Jane - Order Entry). A dialog box is displayed when The DBLCLICK event is received."
Const INFO14 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
Const INFO21 = " Double-click on an item (node or link) and you'll be able to change the properties of this item. "
Const INFO22 = " The long flat node (which symbolizes the local network) owns 5 little nodes implementing stubs. INTERNET node own all nodes inside itself (same with the INTRANET node). "
Const INFO23 = " See Owner property in order to know how to create ownership between nodes. "
Const INFO31 = " Here, you have a way to combine the node and link add into a single step. "
Const INFO32 = " You bring the mouse cursor into the handle at the center of the selected node, press the left button, move the mouse where you want but not over a node. Then you release the left button and you'll see that a node and a link are created together."
Const INFO33 = " Note also that when you create a node with the mouse, there is a mimimal node size (See Nodes.Add event in the help file to see how to do that)."
Const INFO34 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
Const INFO41 = " In this example, node sizes are adjusted to picture sizes (See property AutoSize). In such a case, text is displayed inside picture."
Const INFO42 = " Therefore, you can't change node size unless you change AutoSize property"